<!--#include file="Config.asp" -->
<!--#include file="_Inc/_Fun_Base64.asp"-->
<!--#include file="HeadTop.asp"-->
<%
UserID=Trim(Request("ID"))
msg=Trim(Request("msg"))

'If Len(UserID)=0 Then
'response.redirect Request.ServerVariables("HTTP_REFERER") 'Name&PWS为空值返回上一页
'Else

If Len(Request("ID"))<>0 then
ID=int(Request("ID"))
Else
ID=session("AnyPIM_userID")
End if
'base64Encode初始化
call initCodecs

SQL="select * from Users where ID = "&ID
Rs.Open SQL,Conn,1,1
ID=int(rs("ID"))
UserName=Trim(rs("UserName"))
RealName=Trim(rs("RealName"))
RightVisit=int(rs("RightVisit"))
RightAdd=int(rs("RightAdd"))
RightEdit=int(rs("RightEdit"))
RightDel=int(rs("RightDel"))
RightIncorporate=int(rs("RightIncorporate"))
RightAdmin=int(rs("RightAdmin"))
Sex=trim(Rs("Sex"))
Nation=trim(Rs("Nation"))
Political=trim(Rs("Political"))
Birthplace=trim(Rs("Birthplace"))
Marriage=trim(Rs("Marriage"))
Qualification=trim(Rs("Qualification"))
Standing=trim(Rs("Standing"))
Weight=trim(Rs("Weight"))
NowAddr=trim(Rs("NowAddr"))
HomeAddr=trim(Rs("HomeAddr"))
QQ=trim(Rs("QQ"))
MSN=trim(Rs("MSN"))
Tel=trim(Rs("Tel"))
Mobile=trim(Rs("Mobile"))
HouseholdPlace=trim(Rs("HouseholdPlace"))
Email=trim(Rs("Email"))
CredentialsType=int(Rs("CredentialsType"))
CredentialsNum=trim(Rs("CredentialsNum"))
BirthYear=Int(Rs("BirthYear"))
BirthMonth=Int(Rs("BirthMonth"))
BirthDay=Int(Rs("BirthDay"))
Rs.Close
%>
<TABLE class="table table-condensed">
<form method="post" action="UserAccoutSave.asp?ID=<%=ID%>&Action=ModUI">
<tr bgcolor='#ddeeff'>
<td width="14%" >UserID:</td>
<td width="86%" ><%=ID%></td>
</tr>
<tr>
<td>UserName:</td>
<td>
<input name="UserName" type="text" id="UserName" size="30" value="<%=UserName%>"/>
<SELECT name="Sex">
<OPTION value="1" <%if Sex=1 then%>selected<%end if%>>男</option>
<OPTION value="0" <%if Sex=0 then%>selected<%end if%>>女</option>
</SELECT>
<select name="Marriage"  id="Marriage">
<option value="未婚" <%If Marriage="未婚" Then Response.Write("selected")%>>未婚</option>
<option value="已婚" <%If Marriage="已婚" Then Response.Write("selected")%>>已婚</option>
<option value="离异" <%If Marriage="离异" Then Response.Write("selected")%>>离异</option>
</select>
</td>
</tr>

<tr>
<td>密码：</td>
<td><input name="Pwd" type="text" size="30" value=""/>[空则不做修改]
</td>
</tr>
<!-- 权限开始 -->
<tr bgcolor='#ddeeff'>
<td>权限：</td>
<td>
浏览权限：<select name="RightVisit">
	<option value="0" <%If RightVisit=0 then%>selected<%End if%>>无</option>
	<option value="1" <%If RightVisit=1 then%>selected<%End if%>>有</option>
</select>
增加权限：
<select name="RightAdd">
	<option value="0" <%If RightAdd=0 then%>selected<%End if%>>无</option>
	<option value="1" <%If RightAdd=1 then%>selected<%End if%>>有</option>
</select>
修改权限：
<select name="RightEdit">
	<option value="0" <%If RightEdit=0 then%>selected<%End if%>>无</option>
	<option value="1" <%If RightEdit=1 then%>selected<%End if%>>有</option>
</select>
删除权限：
<select name="RightDel">
	<option value="0" <%If RightDel=0 then%>selected<%End if%>>无</option>
	<option value="1" <%If RightDel=1 then%>selected<%End if%>>有</option>
</select>
合并权限：
<select name="RightIncorporate">
	<option value="0" <%If RightIncorporate=0 then%>selected<%End if%>>无</option>
	<option value="1" <%If RightIncorporate=1 then%>selected<%End if%>>有</option>
</select>
管理员权限：<select name="RightAdmin">
	<option value="0" <%If RightAdmin=0 then%>selected<%End if%>>无</option>
	<option value="1" <%If RightAdmin=1 then%>selected<%End if%>>有</option>
</select>
</td>
</tr>

<tr>
<td>真实姓名：</td>
<td><input name="RealName" type="text" id="RealName" size="30" value="<%=RealName%>"/>
&nbsp;已经<%=year(now())-BirthYear%>岁</td>
</tr>

<tr>
<td >出生日期：</td>
<td >
<SELECT name="BirthYear">
<%for Y=1950 to year(now())%>
<OPTION value="<%=Y%>" <%if Y=BirthYear then%>selected<%end if%>><%=Y%>年</Option>
<%next%>
</SELECT>
<SELECT name="BirthMonth">
<%for M=1 to 12%>
<OPTION value="<%=M%>" <%if M=BirthMonth then%>selected<%end if%>><%=M%>月</Option>
<%next%>
</SELECT>
<SELECT name="BirthDay">
<%for D=1 to 31%>
<OPTION value="<%=D%>" <%if D=BirthDay then%>selected<%end if%>><%=D%>日</Option>
<%next%>
</SELECT>

</td>
</tr>

<tr>
<td >证件号码：</td>
<td >
<SELECT name="CredentialsType">
<OPTION value="1" <%if CredentialsType=1 then%>selected<%end if%>>身份证</option>
<OPTION value="2" <%if CredentialsType=2 then%>selected<%end if%>>驾照</option>
</SELECT>
<INPUT type="text" name="CredentialsNum" size='40' value="<%=CredentialsNum%>">
</td>
</tr>

<tr>
<td >民族：</td>
<td ><input name="Nation" type="text" id="Nation" size="20"  value="<%=Nation%>" /></td>
</tr>
<tr>
<td >政治面貌：</td>
<td ><select name="Political"  id="Political">
<%
Rs.Open "select * from PoliticalTbl order by PoliticalId asc" , Conn , 1 , 1
Do While Not Rs.Eof
Response.Write("<option value="""& Rs("PoliticalName") &""" ")
If Rs("PoliticalName")=Political Then Response.Write(" selected")
Response.Write(">"& Rs("PoliticalName") &"</option>")
Rs.MoveNext
Loop
Rs.Close
%>
</select></td>
</tr>
<tr>
<td >籍贯：</td>
<td ><input name="Birthplace" type="text"  id="Birthplace" value="<%=Birthplace%>"  size='40'/></td>
</tr>
<tr>
<td >户口：</td>
<td ><input name="HouseholdPlace" type="text"  id="HouseholdPlace" value="<%=HouseholdPlace%>" size='40' /></td>
</tr>
<tr>
<td >学历：</td>
<td ><select name="Qualification"  id="Qualification">
<%
Rs.Open "select * from QualificationTbl order by QualificationId asc" , Conn , 1 , 1
Do While Not Rs.Eof
Response.Write("<option value="""& Rs("QualificationName") &""" ")
If Rs("QualificationName")=Qualification Then Response.Write(" selected")
Response.Write(">"& Rs("QualificationName") &"</option>")
Rs.MoveNext
Loop
Rs.Close
%>
</select></td>
</tr>
<tr>
<td >身高：</td>
<td ><input name="Standing" type="text"  id="Standing" size="10" value="<%=Standing%>" />
CM</td>
</tr>
<tr>
<td >体重：</td>
<td ><input name="Weight" type="text"  id="Weight" size="10" value="<%=Weight%>" />
KG</td>
</tr>

<tr>
<td>现在所在地：</td>
<td><input name="NowAddr" type="text"  id="NowAddr" size="60" value="<%=NowAddr%>" /></td>
</tr>
<tr>
<td >联系地址：</td>
<td ><input name="HomeAddr" type="text"  id="HomeAddr" size="60" value="<%=HomeAddr%>" /></td>
</tr>
<tr>
<td >QQ：</td>
<td ><input name="QQ" type="text"  id="QQ" size="60" value="<%=QQ%>" /></td>
</tr>
<tr>
<td >MSN：</td>
<td ><input name="MSN" type="text"  id="MSN" size="60" value="<%=MSN%>" /></td>
</tr>
<tr>
<td >微博：</td>
<td ><input name="Weibo" type="text"  id="Weibo" size="60" value="<%=Weibo%>" /></td>
</tr>

<tr>
<td >手机：</td>
<td ><input name="Mobile" type="text"  id="Mobile" size="60" value="<%=Mobile%>" /></td>
</tr>
<tr>
<td valign='top'>联系电话：</td>
<td ><input name="Tel" type="text"  id="Tel" size="60" value="<%=Tel%>" />&nbsp;
(格式：0576-88553705 或者 13912345678 ，多个电话请用,隔开)</td>
</tr>
<tr>
<td >电子信箱：</td>
<td ><input name="Email" type="text"  id="Email" size="60" value="<%=Email%>" /></td>
</tr>
<tr bgcolor='#ddeeff'>
<td>&nbsp;</td>
<td>
<%If session("AnyPIM_RightAdmin")=1 then%>
<input type="submit" value='更新信息'/>
<%else%>
无管理员权限
<%End if%>
<font color="#ff0000"><%=msg%></font>
</td>
</tr>
</form>
</table>

<%
'End if
%>
<!-- #include file="foot.asp" -->
